home *** CD-ROM | disk | FTP | other *** search
/ Best of Shareware / Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso / mac / DOS / MATH / FSULTRA1 / ULTRA_C.ASM < prev    next >
Assembly Source File  |  1992-06-18  |  3KB  |  147 lines
  1. comment ! 
  2. FSU - ULTRA    The greatest random number generator that ever was
  3.         or ever will be.  Way beyond Super-Duper.
  4.         (Just kidding, but we think its a good one.)
  5.  
  6. Authors:    Arif Zaman (arif@stat.fsu.edu) and
  7.         George Marsaglia (geo@stat.fsu.edu).
  8.  
  9. Date:        27 May 1992
  10.  
  11. Version:    1.05
  12.  
  13. Copyright:    To obtain permission to incorporate this program into
  14.         any commercial product, please contact the authors at
  15.         the e-mail address given above or at
  16.  
  17.         Department of Statistics and
  18.         Supercomputer Computations Research Institute
  19.         Florida State University
  20.         Tallahassee, FL 32306.
  21.  
  22. See Also:    README        for a brief description
  23.         ULTRA.DOC    for a detailed description
  24.  
  25. -----------------------------------------------------------------------
  26. ! 
  27. ;
  28. ; File: ULTRA_C.ASM  (Turbo C calling conventions)
  29. ;
  30.     ifdef     __TINY__
  31.         m equ tiny
  32.     elseifdef __SMALL__
  33.         m equ small
  34.     elseifdef __COMPACT__
  35.         m equ compact
  36.     elseifdef __MEDIUM__
  37.         m equ medium
  38.     elseifdef __LARGE__
  39.         m equ large
  40.     elseifdef __HUGE__
  41.         m equ huge
  42.     endif
  43.     DOSSEG
  44.     .MODEL m,c
  45.  
  46. ;===== GLOBAL FUNCTIONS, SUBROUTINES and VARIABLES =================
  47. ;
  48.     public  i31bit, i15bit, i7bit,  i1bit,  uni,    duni
  49.     public  i32bit, i16bit, i8bit,  rinit,  vni,    dvni
  50.     public    swbstate, swbsize
  51.  
  52. ;===== MACRO DEFINITIONS ===========================================
  53. ;
  54. ; RinitProcStart should take two 32-bit arguments conx and shrx
  55. ;   and place them in the data segment in congx and shrgx.
  56. ;   es and ds should both point to the data segment.
  57. ;   conx must be odd (so we or with 1 just to make sure).
  58. ; FillProc
  59. ;   DS is already the data segment. ES should also be made the same.
  60.  
  61. EnterProcedure   macro    saveregs
  62.     if @DataSize eq 2
  63.     mov  dx,@DATA
  64.     push ds
  65.     mov  ds,dx
  66.     endif
  67.     irp reg,saveregs
  68.     ifidn    <reg>,<si>
  69.         push si
  70.     elseifidn <reg>,<di>
  71.         push di
  72.     endif
  73.     endm
  74. endm
  75.  
  76. ExitProcedure    macro    saveregs
  77.     irp reg,saveregs
  78.     ifidn    <reg>,<di>
  79.         pop di
  80.     elseifidn <reg>,<si>
  81.         pop si
  82.     endif
  83.     endm
  84.     if @DataSize eq 2
  85.       pop ds
  86.     endif
  87.     ret
  88. endm
  89.  
  90. Enter2arg    macro
  91.   arg conx:dword, shrx:dword
  92.   EnterProcedure <si,di>
  93.     mov ax,ds
  94.     mov es,ax
  95.     mov ax,word ptr conx
  96.     shl ax,1
  97.     mov conglo,ax
  98.     mov ax,word ptr conx+2
  99.     rcl ax,1
  100.     mov conghi,ax
  101.     or  byte ptr conglo,1
  102.     mov ax,word ptr shrx
  103.     mov shrglo,ax
  104.     mov ax,word ptr shrx+2
  105.     mov shrghi,ax
  106. endm
  107.  
  108. Exit2arg    macro
  109.   ExitProcedure <di,si>
  110. endm
  111.  
  112. EnterFill    macro
  113.     push    si
  114.     push    di
  115.     mov    ax,ds
  116.     mov    es,ax
  117. endm
  118.  
  119. ExitFill    macro
  120.     pop    di
  121.     pop    si
  122.     ret
  123. endm
  124.  
  125. DwordFn macro
  126. endm
  127.  
  128. WordFn  macro
  129. endm
  130.  
  131. ByteFn  macro
  132. endm
  133.  
  134. RealFn  macro
  135. endm
  136.  
  137. DoubleFn macro
  138. endm
  139.  
  140. .DATA
  141.   INCLUDE ULTRADAT.INC
  142.  
  143. .CODE
  144.   INCLUDE ULTRACOD.INC
  145.  
  146. END
  147.